diff --git a/perl-Sub-Name.spec b/perl-Sub-Name.spec
index b828b90..c36e31f 100644
--- a/perl-Sub-Name.spec
+++ b/perl-Sub-Name.spec
@@ -1,5 +1,5 @@
 # Only need manual requires for "use base XXX;" prior to rpm 4.9
-%global rpm49 %(rpm --version | perl -pi -e 's/^.* (\\d+)\\.(\\d+).*/sprintf("%d.%03d",$1,$2) ge 4.009 ? 1 : 0/e')
+%global rpm49 %(rpm --version | perl -p -e 's/^.* (\\d+)\\.(\\d+).*/sprintf("%d.%03d",$1,$2) ge 4.009 ? 1 : 0/e')
 
 Name:		perl-Sub-Name
 Version:	0.05