<> -> <STDIN> to avoid errors when running as root

ex-nerd · ex-nerd · commit 4df4b7a1b10f · 2005-01-21T03:19:01.000Z
diff --git a/trunk/nuvexport b/trunk/nuvexport
@@ -1,5 +1,5 @@
 #!/usr/bin/perl -w
-# Last Updated: 2004.12.14 (xris)
+# Last Updated: 2005.01.20 (xris)
 
 # Autoflush buffers
     $|++;
@@ -11,7 +11,7 @@
     # Annoy people running as root
         if ($< < 1) {
             print "You are running nuvexport as root -- this is not advised.\nPress ENTER if you really want to do this.\n";
-            <>;
+            <STDIN>;
         }
     }
 

Original file line number	Diff line number	Diff line change
`@@ -1,5 +1,5 @@`
`1`	`1`	`#!/usr/bin/perl -w`
`2`		`-# Last Updated: 2004.12.14 (xris)`
	`2`	`+# Last Updated: 2005.01.20 (xris)`
`3`	`3`
`4`	`4`	`# Autoflush buffers`
`5`	`5`	`$\|++;`
`@@ -11,7 +11,7 @@`
`11`	`11`	`# Annoy people running as root`
`12`	`12`	`if ($< < 1) {`
`13`	`13`	`print "You are running nuvexport as root -- this is not advised.\nPress ENTER if you really want to do this.\n";`
`14`		`- <>;`
	`14`	`+ <STDIN>;`
`15`	`15`	`}`
`16`	`16`	`}`
`17`	`17`